Szenzációs hírt kell megosztanom 
az olvasóval: barátom, Feri 
vásárolt egy Commodore 64-es 
számítógépet. 

Ahogy az lenni szokott; a gép 

a család szemefényévé vált. 

Feri már otthon is el tudja végezni 
a tervezési munkájához 
szükséges szá ásokat, 

és gmk-jának pénzügyeit is 
géppel tartja nyilván. 

Felesége is osztozott a kezdeti 
lelkesedésben : egy lemez 
tartalmazza telefonos noteszének 
adatait, így a géppel keresteti 
meg népes barátn rének 


telefonszámait, és kozmetikusá- 
nak, fodrásznőjének fogadóóráit. 


Némi nagyképűséggel szöveg- 

szerkesztővel írja leveleit 

a vidéki rokonoknak -— hadd lássa 

mindenki, hogy milyen 

.:"Csúcstechnikával" rendelkez- 

nek. A gyerekek, persze nem 

tudnak betelni a játék- 

programokkal. Ők is beléptek 

általános iskolás osztálytársaik- 

nak abba a kasztjába, akik 

nap mint nap lázas program- 

cserébe bonyolódnak. Elég 

gyorsan elsajátították 

a BASIC alapjait is. 

.:Mindez szép és jó, de miért volna ez szenzáció — kérdezheti 
az Olvasó -, hiszen ma már rengeteg háztartásban és irodában 
megtalálhatók a mikrogépek?" 

Mostanáig én sem hittem, hogy egy ilyen hír újságba kíván- 
kozik. A Vasárnapi Hírek március 15-i számának 9. oldalán 
megjelent rövid hír azonban meggyőzött arról, hogy téved- 
tem: , COMMODORE. A tagnyilvántartás gépi feldolgozásá- 
nak előkészítését kezdi meg idén a Szentes és Vidéke Áfész. 
Egy Commodore 64 usú számítógépbe körzetek szerint 
táplálják majd be a felújított nyilvántartást. 

Ha ez közérdeklődésre tart számot, akkor nekem is be kellett 
számolnom barátom háztartásának technikai ugrásáról. 

A BIT-LET Olvasói nyilván tudják, hogy a C-64 otthoni játék- 
gépnek készült, és nem igazán alkalmas adatnyilvántartási 
és -kezelési feladatok ellátására. Vádolhatjuk itt hozzá nem 
értéssel a Vasárnapi Hírek szerkesztőjét, (meg is tesszük), 
aki — esetleg más, érdekesebb tudósítás hiányában — közölte 
a szerinte, a dologhoz fabatkányit sem értő szerint érdekes 
hírt. Igaz, az újságírónak nem feltétlenül kell értenie a számí- 


BELÜLRŐL 


[28] Körrajzoló — TV computerre 


hogy a szerző nem is a szerző ... 


viszont keményen megbírál 


[26] Híroldal — benne egy nem mindennapi videodisc tárolóval. Kapacitása nem kevesebb mint 221 Megabyte. 


[0] Atari nyerő — a múlt havi megfejtésekből ítélve sokakat izgat egy Atari lehetősége! Itt a második forduló 


tástechnikához, de nem is 
kell(ene) olyan hírt fogalmaz- 
nia, amelynek témája olyan 
számára, akár a szanszkrit. 
De a legijesztőbbnek mégis azt 
tartjuk, hogy még mindig 
akadnak az országban áfészek, 
béfészek (bocsánat a szó félre- 
hallhatóságáért — szándékos), 
akik C-64-est vesznek ilyen 
célra. S mégcsak nem is 
röstellik a dolgot világgá 
kürtölni! 
Elképzelem az áfész elnökét, 
amint feltárcsázza újságíró 
barátját, és izgalomtól elfúló 
hangon a fülébe kiab ri 
.. Géza! Hatalmas szenzáció 
Gépesítünk !" 
Mire az újságíró : , Hogy érted 
ezt, Bélám? fűnyírót vette- 
tek?" Az elnök felháborodva: 
"Hol élsz, kérlek? Mert mi 
a XX. században ! Számítógé- 
- pet vásároltunk, 
Commodore 64 típusút. 
Nemsokára ez fogja nyilván- 
tartani tagjaink adatait!" 
Géza válasz nélkül lecsapja a 
telefont. Rohan a telexgép- 
hez, hogy ő lehessen az első, 
aki tudatja a világgal a rend- 
kívüli eseményt. , Számítógép! — göndolja közben — Hiszen 
erről írnak mostanában mindenhol! Végre én is megfogtam 
az Isten lábát egy világszenzációval!" 
A telexgépek azután a Föld minden táján lekopogják a hírt a 
csodálatos magyar újdonságról. Az esemény híre eljut Dél- 
Amerikától Új-Zélandig mindehová. A világ nagy hírügynök- 
ségei az ágok első oldalán, a TV-híradók adásuk első percei- 
ben közlik a szenzációt. Elvégre emögött lenni kell valaminek 
— mondják —, tudunk mi a sorok között olvasni. 
Ahogy az UPI tudósítója fogalmaz: ,,A fiamnak is volt egy 
C-64-ese, de kinőtte, így kicseréltük egy nagyobb gépre. 
A táskámban pedig itt lapul egy 1! MByte-os szövegszerkesztő 
rendszer, amin a tudósításaimat írom. Hogy a magyarok nem 
hülyék, az már kiderült a bűvös kockánál. Itt valami hasonló 
világrengető dologról van szó, ami lehet, hogy sokkal veszé- 
Iyesebb, mint egy logikai játékszer. De hogy miről? ... Én 
mindenesetre tartok tőlük." 


Tallér József 


30) GEOS - a C-64-es új rendszerszoftverjének órája eddig csak Amerikában volt pontos, most beállítjuk a fantasztikus magyar áramhoz! 
[31] Szoftverőötletek — RENUMBER, és INPUT rutin a PRIMO-ra 
(32) Botrány — ZX Spectrumra és két személyre — először fordul elő történelmünkben, hogy egy programról kiderül, 


34] Életjáték — Ezúttal Commodore 64-esre egy fogyasztható gyorsaságú sejtautomata 
36] Sorvezető -— a hamvából fölélesztett rovat ez évi második jelentkezése ! 


38] Könyvmoly — Új könyvek, rágcsálónk nagy örömmel üdvözöl egy izgalmas művet, egy másik, kicsit régebben megjelent könyvet 


[39] Posta - levelecske olvasócskánktól, némi humorral fűszerezve, humorizálgató válaszokkal 


SZÁMÍTÁSTECHNIKAI MELLÉKLET-1987 ÁPRILIS 


von szt] 
27) ESZÉT SZÁMÍTÁSTECHNIKAI MELLÉKLET-198.7 ÁPRILIS 


Az alábbi kis programmal az EXT utasítással 
rajzolhatunk köröket. 

A kör rajzolása az EXT sorszám, x, y, r uta- 
sítással történik, ahol x és y a kör közép- 
pontja, r pedig a sugara. Mivel az EXT 
paraméterei a —32768-tól -432767-ig ter- 
jedő tartományba eshetnek, ezért a kép- 
ernyőn kívül eső középpontú kört is rajzol- 
hatunk! A rutin a kört egy 806 oldalú sok- 
szöggel közelíti, így csak azokat a szakaszo- 
kat rajzolja meg, melyeknek mindkét vég- 
pontja a képernyőn belül van. Természete- 
sen a rajzolás az aktuális tintaszín, MODE 
és STYLE paraméterek szerint történik, de a 
STYLE vonaltípus csak nagyobb átmérőknél 
érvényesül. 

Az első lefuttatás után EXTO,512,480,400 
paranccsal próbáljuk ki a rutint. Ha nem 
kaptunk kört, akkor hiba van a DATA so- 
rokban, javítsuk ki! Ha kört kaptunk, akkor 
a DATA sorok már feleslegesek, kitörölhe- 
tők a "DELETE 4—" paranccsal. (A gépi kódú 
program az első sorokba került.) Az így 
elkészült program magnóra kimenthető, ké- 
sőbbi programokban felhasználható. 


"Fontos apróságok: 

A rutin csak akkor működőképes, ha a szo- 
kásos BASIC program kezdőcímről (6639) 
LOMEM utasítással nem mozdítjuk el. A 
programot csak a 3. sortól listázzuk, mert az 
első sorok listázása a többiét is megzavar- 
hatja. 

"A körrajzóló algoritmus leírása: 
Ha az (x;y) pontot az origó körül szöggel el- 
forgatjuk, új koordinátáit (ux;uy) az 
ux-x:kcos(o)ty:xsin(e) 
uyzykcos(o)—x:sin(9) 

képletek segítségével számíthatjuk ki. Ha az 
elforgatást többször megismételjük, és a 
kapott pontokat összekötjük, sokszöget ka- 
punk. Nem origó középpont esetén a kö- 
zéppont koordinátáit (kx.ky) a kapott pon- 
tokhoz hozzá kell adni. A rutin a kört egy 
806 oldalú sokszöggel közelíti. Ebben az 
esetben sin(o)51/128, cos(p) 32767/ 


:LD A (DEI 


§ CY:z0 


A, CHI.) 
LŰ (DFD,A 
INC HL 
INC UE 
DANZ Mi 
RET 
LU B,O 


DEC HL 


DEC HL 

LŐ A, (HL) 
RLA 

POP HL 

RL CHL.) 


1 
CAL 


LÓ A, (HL) 
BLA 

LŐ HL, VARZ 
RL. (HL) 
INC HL 

RL. (HL. 
INT HL 


RL (HL? 


32768. Mindkét értékkel viszonylag könnyen 
lehet binárisan szorozni. E szorzásokat a 
SIN.FI és COS.FI szubrutinok végzik az 
n/128-2xn/256 és 32767/32768 4n- 
n-n/32768 számítások alapján. Az ux, uy, 
x, y változók és var, var2 részeredmények tá- 
rolása 32 biten történik. (16 bit égész rész, 
16 bit tört rész.) A középpont kx, ky koordi- 
nátáinak tárolása 16 biten történik. Az 
összeadást és kivonást a PLUS és MINUS 
rutinok végzik, a változókat a MOVE rutin 
helyezi a megfelelő helyre. 

A kiszámolt pontokhoz a középpont értéké- 
nek hozzáadását, és a szakasz megrajzolását 
a PLOT címen kezdődő rész végzi. Sajnos a 
TVC koordináta rendszerének vízszintes és 
függőleges léptékezése nem azonos, ezért 
az x koordináta 7/8-ad részével kell rajzolni. 
Ezt a számítást a ZSUGOR címen kezdődő 
rész végzi. 

A vonalak meghúzását a TVC operációs 
rendszerének rutinjai végzik, melyek az 
RST48 (RST30H) utasítással érhetők el. 


Bata László, 
1137 Budapest, Jászai Mari tér 4. I/4. 


10 !ERREEER 7 osszesen 245 db. csillag 

ZO VEREK 7 osszesen 63 db. csillag 

30 POKE 33,130: POKE 34.26: REM EXT O,xyyr 
40 FOR Is6ég9 TO é9Sé: READ A: POKE I,A: NEXT 
50 DATA 

60 DATA 


(A DATA sorokba az Assembler lista bal 
oldalán lévő adatokat kell írni !) 


66 


ZO ZAAk 
6 
183 
40, a 
247, 9 
öli "A 
247, 8 
33,250, 25 
205, 71, 26 
33, 7, 26 
17.255, 25 
213 
229 
24, 5 
zan 
és 
0, 0 
254 
205, 15, 26 
33,254, 25 
205, 32, 26 
225 
209 
6, 4 
183 
z6 
142 
18 
35 
19 
16,249 
33,254, 25 
205, 71, 26 
38, 7. 26 
17, 3, 26 
213 
229 


VEG: RST 48,9 
BAT 3 


KEZDET:DI 


308: DR 


POP HL 
DEC HL 

LD DE,VAR 
PUSH DE 
CALL MŰVE 
FÜP UE 
LU HL, VA 
CALL MINI 
RET 


4 toll f 

EI 

RET ; 
§ 


LD (X-4£2),HL 
LD HL,S807; ciklushossz 


ADC HL, OE; HI 
JR Ő Z,VEG ; 
PUSH HL 


PLOT:IL.O HL, (KYD 


LD BE, (V422 
ADI HI, NE; H 
EX DE,I 


ZSUGOR: LD HL, (X47) 


ADU HL, BC 

LD B,H 

LD C I. ; 

RST 48,6 ; 

OR A ; 
; 


nem vott hiba 


JR Z,FPLI zi c 
toll fel 


RST 48,5 
JR PLZ 


PLI:RST 48,8 ; toll le 
PLZ:LD HL,Xt3 


CALL. COS.FI; var: 
LD HL, VAR 

LŐ DE, UX 

PUSH DE 

PUSH HL 

JR L 
UE 


etcos (fid 


Du 
DB 


LD HL,Y 
CALL SINLFI; var:zytsinífi) 
PUP HL 
PEP: BE 


PLUS:LD B, 4 


OR A ; LY:z0 


Pi:LD A, (DE) 


ADC A, CHL.) 
LD. (DE) ,A 
INC HI. 


I.D DE, UY 
PUSH DE 
PUSH HL 
CALL MO 
LD HL.,X 
CALL SIN. 
POP HL 

FÜP DE 

CALL MINUS 
LD BC,8 

LŐ HL 4 
LD 


ugyrevar 


I; varrsuxgsiní(fi) 


ugy: sugevze 


" 


A GEOS-rendszer számos 
szolgáltatást nyújt a fel- 
HŰ használónak. Az eddig piac- 
re került két felhasználói 
program (a GEOPAINT és a 
GEOWRITE) mellett fontos 
szerepet játszanak az úgy- 


EOPROGRANMOK 
nevezett , segédprogramok 

(DESK ACCESSORIES) is. EURO-HERZ 
Segítségükkel pl. munka 

közben számításokat végez- 5 IRTA: HOHTI TAMASZ 


hetünk, jegyzeteket készít- 
hetünk vagy figyelemmel kí- 
sérhetjük az idő múlását. Ez 
utóbbit a  PREFERENCE 
MANEGER; illetveazALARM 
CLOCK teszi számunkra le- 
hetővé. Fontos ez a funkció 
a file-ok nyilvántartásánál 
is, hiszen minden file eseté- 
ben letárolja a rendszer az 
információs szektorban az 
aktuális időt. 

Az európai terjesztésnél a 
program készítői nem vették 
figyelembe az amerikai és 
az európai hálózati frekven- 
cia eltérését (USA 60 Hz, 
Európa 50 Hz), ami a rendszer 
órájának jelentős késését 
okozza. Az ebből eredő kel- 
lemetlenséget megszüntet- 
hetjük, ha a GEOS KERNAL- 
ban egy apróbb változtatást 
hajtunk végre. 

Ezt úgy tehetjük meg, hogy 
elhagyjuk a  GEOS-rend- 
szert (SPECIAL parancs, 
BASIC utasítás) és POKE 
53132,128 utasítással átál- 
lítjuk a CIA-t 50 Hz-re, majd 
SYS 52298 utasítással visz- 
szatérünk a GEOS-ba. Így 
elértük, hogy a gép kikap- 
csolásáig helyesen fogja az 
óránk mérni az időt. 

Ha ez nem elég és nem akar- 
juk minden egyes indításkor 
ezt a bosszantó műveletet 26 files 
végrehajtani, akkor írjuk át F 
a lemezen a GEOS KER- 
NAL-t. Ebben segít a mel- 
lékelt BASIC program. Hasi-  É 
került a programot helyesen GEOS GEOS BOOT GEOS5 KERNAL — GEOPAINT 
begépelni, tegyük be a meg- 


hajtóba a GEOS lemezünk ITT 
biztonsági másolatát és in- ET 
dítenk el a pisatamol ka v1 
eredményesen lefuttattuk a 
programot, akkor ellenőriz- GEOMRITE DESK TOP BACKUP 
zük le, hogy mennyivel lett 
pontosabb az óra. Természe- 
tesen abszolút pontosságot 
senki ne várjon egy frek- 
venciafüggő órától, hiszen 
nálunk a terheléstől függően 
48-51 Hz között ingadozik a 
hálózati frekvencia. 

Honti Tamás 
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SELT$) : AZOCCSETOHREC (a) 
[2 THEM 17. 


LATÁM HE" 
AM 58 HZ-R 


£I/7M2Z":PRINT 
IFAS$ZS"M"THENPRINTS"EM":GOTM AGA 
AGY MHEHMET 


VALA: ": GOTOZSA 


GO000 - 


609901 ONERRORGOTOSORBS 
60292 IFPEEK(16548) (3 Z2340RPEEK (16549) £5267T 
HENPRINT" Az "átsorszámozó kész!":POKEE165 
48, 234 ,67: END 

ÜTOS60189 


1OTHENPRINTERL " sor" , "ERR: STOF 
768THENW-W-6SSSZ6GELSEFRINT "736"; 


01-44: NR-NRT1 
PF5FPEEK (W) 
2-1THENRETURN 

64050 4A7THENRETURN 

60060 j zZOTHENRETURN 

60070. IFPF-1410RPF-145ORPF-:-15970RPF-ZOZORPF 
z149THEN60992 

609080 FU--1 : GOTOS0ZO 

620990 ":JE-0 

60100 FLJ4-1 : W-FU: FF-PEEK (W) 

690110 2THEN6GB149 

609111 IFPF-CSBANDPF5A47THENJE-1:60T060140 
691280 IFLEN(Z£$) -STHEN6O135 

601530 7 A4AATHEN6G0093EL SES90940 

601535 IFJ THENSOGAGELSEPRINT"Nincs elég 
hely a hivatkozott sorszámnak a"SO"sorrban 
1": END 

60140 ZEZZETCHRE(PF) : GO0TO60100 

a] 24-2: 50-PEEK (W4) : W-C243: 50—-SO42564P 


60160 C1-C2:W5C1s:CZ2Z-PEEK(W) :W-C1r1:C2-C2r2 
56XPEEK 


60170 RETURN 


601890 REM kezdet 
601990 C2-173586 


602904 G0SUB601509: IFC1-90ORSO? -6Y9N9OTHENSO22 


G05UB60918: GOTO602900 


PRINTCHR$(7) 3: INPUT" Mekkora a növek 

mény" s NY 

60240 IFNYAITHENPRINT"Rossz növekmény! 
T0690230 

60250. IF (NR—1) £NY3 -60ORGOTHENPRINT"Tál nagy 
növekmény ! " : GOTOSGOZZO 

60260 CLS:KKEB:KÖOZZSÉKPEEK (20) 

60270 C2-17386 

60280 GOSUBSO1SO: [7C1-0ORSOZ -6000OTHENS046 
[7 
60290 
60309 

60310 

60320 

60330 


":60 


GOSUB6OZYAN : GOTO60280 
FU5Cir4 

W:FUz PF::PEEK (W) 
IFFU-C2-10RPF-1470RPF: 


ÜOTHENRETURN 
S9ORPF-ZOZORPF 


60360. FUZFUT1 : WEFLI:PFSPEEK (W) : IFPF-3ZZTHEN6G 
0. 
69. 79 IFPELCSBANDPF3 47THENZ$-Z$4CHR$(PF) : JE 
z1s G0TO60369 

605380 IFJE-LITHENGSOSZZOEL SERC-VAL (Z£) 

64390 605U8B60410:W-AI1 : A2—WANDZSS : WRC : R2-W 
ANDZSS s: W-KF : POKEW , AZ, INT (A1/256) , R2, INNT(R 
€/256) : BEEP40 , 2905 50 , 299 ; 30 , 800; 60 , 490 
60400 KK-:KK-1: IFPF-44THEN6GOZSGEL SEGOZZOB 
GDA19 KI IC-4-KKöté: RETURN 

69420 : W5UJC:U1-WANDZSS: U2-INT(UC/256) : 
W: 


604350 
449 
60431 
604352 
60440 
60441 
60442 
60450 
62460 C2-173B6ér JE-D 

60470 GOSUBSN1SM: TFJEL 1THENUC-SO: JESZELSEU 
CSUCANY 
60430 IFI 
604979 
605089 
60519 
F2 47) THENPOKEM , 37 
GOS29 U$-STRE (UC) : IFLEN(U$) 5STHENU$-RIGHT$ 
1 
695 FORJA1TÜLEN (U4$) 

ODS4A0 WZALEJ: POKEW, ASC(MID$(U$,J,1) ) : BEEPG 
2,6955,109 

GÖSBY NEXTJ 

60560 RETURN 

GOS7B KKE 

603580 GUSUB6GNA19 
GAZD W::KF: ALSPEEK (W) z 
KCW) : W—KF4A:UCEPEEK (W) : 
E! 


W-KF-41: IFPEEK (W4) (2 OTHEN60440 
W:-C142:POKEW,U1,UZ2Z: BEEPSO , 5: RETURN 
W-KF: IFPEEK (W) £2S1THEN6S0450 
W-KF-41z IFPEEK (4) 3 SZTHEN60450 
W-KF42: POKEW,U1,UZ: BEEP4O , 4 
€41:G6GOTOGD4ZBD 


-KF-41:A17-A14256$PEE 
-KF-HS:UC-UCIZSSOKRP 


IFA1-OTHEN60620 

IVUC-OTHEN6S60615 

G0SUB6059090 

KKSKK-1:G0TDS05SBB 

CLS: ONERRORGOTOOG: PRINT"Kész az átszá 


69611 
DD610 
o06is 
GSD6ZB 


mozás 


" RENUÜMBER PRIMO 
Az átsorszámozó program használata 
A) Ha körültekintőek vagyunk, akkor már programszerkesztéskor úgy írjuk 
le a GOSUB, GOTO, RESUME, ELSE, THEN utáni sorszámot, annyi szó- 
közzel előtte vagy utána, hogy a helyén elférjen egy másik ötkarakteres 
szám is. Ha megfeledkezünk róla, az sem baj, a program majd figyelmeztet rá. 
B) Az újra sorszámozandó program ne tartalmazzon 60000-nél nagyobb 
sorszámot! 

C) Betöltés. Az átsorszámozandó program a gépben van! Parancsmódban 
beírjuk: 

C-PEEK(16633) 4256 3 PEEK(16634) :C-C—2:C2-INT(C/256) : 
:C1-C€—256 3 C2:POKE16548.C1,C2:CLEAR 

D) Betöltés után egyszer lefuttatjuk, akkor visszaállítja a BASIC eleje 
mutatót: RUN60000 

E) Ha még egyszer lefuttatjuk a RUN60000 paranccsal (vagy akárhány- 
szor!), az újra sorszámozó program először megvizsgálja a hivatkozásokat, 
a GOSUB, GOTO, ELSE, THEN és RESUME utáni számokat, hogy módosítás 
esetén lesz-e elég hely egy ötjegyű számot beírni. Ha valahol nincs elég, 
a sor számát kiírja és megáll. Ebben az esetben a sorszám mellé beírunk 
néhány szóközt, , EDIT" üzemmódban, utána a RUN60000-rel ismét el- 
indíthátjuk. 

A vizsgálat után megkérdezi a sorszámok lépésközét. Helytelen érték meg- 
adása esetén hibajelzést ad. Az átsorszámozandó program kezdő sorának 
száma megszakad. 

Futás közben hangok jelzik, hogy a gép él. 

A befejezést a , Kész az átszámozás" felirat jelzi, közben a képernyőt hasz- 
nálja adattáblának. 


Koszper Vilmos 


INPUT RUTIN PRIMO 


Programozás közben sokszor szükség van olyan input rutinra, amely ,,el- 
fogadja" a" ;, és a: karaktereket. A program az inputnál vár, és mást nem tud 
elvégezni. PRIMO-ra szeretnék egy INPUT RUTIN-t közreadni, ami megoldja 
ezeket a problémákat. 

A tulajdonképpeni rutin az 1000. sorban kezdődik: 

Az alkalmazás megértéséhez 5—80. sorok adhatnak magyarázatot. A 1020. 
sorba megfelelően elhelyezett GOSUB-bal például kiírathatjuk a kérdésre 
használt gondolkodási időt folyamatosan. A programrészletet lehet bővíteni 
úgy, hogy csak számokat fogad el. (Pl. 1022 IFAXCHR$(48) AND 
A$)JCHR$(58) THEN 1020) 


Molnár Tibor, 
8923 Nemesapáti, Fő u. 17. 
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Lapocskánk történetében eleddig még nem fordult elő — hál istennek -, 
hogy egy közölt program szerzői jogán összevítatkoztak volna olvasóink. 
Ami késik nem múlik. Íme a furcsa eset dokumentumai: 


Előfelvételis katona vagyok Deb- 
recenben, a BIT-LET rendszeres 
oivasója. Régebben megjelent egy 
cikkem , Nagyfelbontású grafika 
ZX 81-en" címmel, azóta ,,át- 
nyergeltem" Spectrumra. A 
BIT-LET febr. 26-i számában Rucz 
Lajos , Rajz a borderen" címmel 
cikket jelentetett meg. A cikkben 
közölt egy disassemblált listát a 
rutinok felhasználásának leírásá- 
val, az egyes memóriacímek funk- 
ciójával. 

Az említett rutint én írtam kb. egy 
évvel ezelőtt, s BASIC demo-val 
kiegészítve BORDERPAINT néven 
ismerhették meg azok, akikhez 
csere útján eljutott. Rucz Lajos 
cikkéből hiányoltam, hogy nem 
említette meg: a rutint egy nem 
saját programból vette át. ? 
Nem az a célom, hogy a szerzői 
jogról vitatkozzam, hanem kiegé- 
szítsem a megjelent cikket, amely 
elég hiányos volt (nem említ né- 
hány lehetőséget, amelyet a rutin 
tud; nincs magyarázat a program- 
listához; nem említi meg a más 
memóriacímekre való befordítás 
problémáit stb.), s így az olvasó 
önálló kísérletezésének útjába áll. 
A levelemhez mellékelt cikkben 
ezeket a hiányosságokat szeret- 
ném megszüntetni, s néhány tám- 
pontot adni a további fejleszté- 
sekhez. 


A háttér színezése 
ZX Spectrumon 


1. Mit csinál a program? 

Lehetővé teszi, hogy a borderen egy- 
szerre több színnel , írhassunk": kü- 
lön színnel a felső keret felső részére 
(ez a képernyő tetejétől a paper-rész 
tetejéig tart); valamint a paper-rész 
két oldalán levő 192 (!) sor mind- 
egyikére. Az egyes  háttérrészekre 
(ezentúl mezők) írhatunk normál vagy 
villogó színnel. Normál szín: az eddig 
ismert színek 0—7-ig; villogó szín: az 
eredeti , flash" ütemének megfelelően 
(esetleg más fázisban) a normál szín 
és a kiegészítő szín (kódja: 7—(normál 
szín kódja) ) felváltva jelennek meg. 
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2. Hogyan csinálja? 

A Z80A processzor 2-es megszakítási 
üzemmódját használja fel: az ULA 
mindig abban a pillanatban, amikor a 
képernyőt kezdi el készíteni, megszakí- 
tást , kezdeményez", s ezt a 280 vagy 
elfogadja, vagy (pl. BEEP, LOAD, 
SAVE közben) letiltja. Így a képkészí- 
tés és a megszakításrutin szinkronban 
van egymással. A mi saját rutinunk 
tehát a következőket csinálja: adott 
idejű késleltetés után az aktuális mező 
színét (a villogást is figyelembe véve) 
,Írja rá" a borderre, s ezt annyiszor 
ismétli, ahány mezőnk van. 


3. Így épül fel a program: 

A lista elején egy ugrótábla található, 
erre azért van szükség, hogy a fordí- 
tási címtől függetlenül könnyen ki- 
számíthassuk az egyes rutinok hívási 
címeit. Az INTON rutin bekapcsolja a 
saját interrupt rutinunkat, az INTOFF 
kikapcsolja azt. Ebben a megvalósí- 
tásban az INTRP kezdőcíme csak 
4FE6G9-65129 lehet! (INTRP elé 
ORG 65129 kell.) A feladatot végre- 
hajtó rutin az INTRP. Ez két rutint hív: 
1. COLOR: a border alsó és felső ré- 
szének színét írja a borderre a fázisát 
figyelembe véve; 

2. WAIT: Időhúzás 

A következő 5 rutinnak már semmi 
köze nincs a megszakításhoz, ezek a 
színmemórián végeznek műveleteket: 
1. SCDOWN: lefelé scrolloz 

2. SCRUP: felfelé scrolloz 

3. INVERT: a színeket invertálja 

4. FLON: a villogást bekapcsolja 

5. FLOFE: a villogást kikapcsolja 

(A rutinokhoz részletes magyarázat 
található a mellékelt programlistán.) 


4. Programbelövés és csapdái 
Először a csapdákat említem meg, 
hogy a program belövésének megér- 
tése egyszerűbb legyen: 

1. Ha a processzor a 44000—47FFF 
címeket írja-olvassa, működése a kép- 
ernyőkészítéssel összefüggő hardver 
okokból lassabb lesz. Ebből két dolog 
következik: 

a) A program csak a 48000—4-FFFF 
tartományban helyezhető el (ebben a 
formájában). 

b) Amikor CLEAR utasítással levéd- 


jük a memóriát, argumentumként olyan 
k számot kell megadni, hogy a pro- 
cesszor stack ne kerüljön a , lassú" 
címtartományba. A k szám értéke a 
BASIC-ben levő  szubrutinhívások 
mélységétől függően kb. 33000... 
65000 címek között kéll, hogy legyen. 
2. A vektoros megszakítási mód miatt 
az INTRP rutin kezdőcíme ebben a 
formában csak 65129 lehet! Ameny- 
nyiben a rutint más címre fordítjuk be, 
, elszáll" a rendszer. Ha mégis szeret- 
nénk más címre befordítani INTRP-t, 
az INTON rutint át kell alakítanunk: 
INTON LD HL,NTRP 

LD (4:FEFF),HL 

LD A, $FE 

LD IA 

IM 2 

RET 
A programbelövés fázisai: 
1. Megfelelő assembler/editorral be- 
írjuk a programot (GENS3) 
2. Az INTRP elé elhelyezzük az ORG 
65129 utasítást (vagy a módosított 
INTON rutint használjuk 
3. A TABLE, INTON, INTOFF prog- 
ramrészeket úgy helyezzük el, hogy 
sem a színmemóriával, sem az INTRP- 
vel ne kerüljön fedésbe. (pl.: TABLE 
elé ORG 65000-t írva) 
4. Befordítás, filementés stb. 
5. A memória levédése (pl.: CLEAR 
64999) 
6. Színmemória feltöltése, futtatás 


5. A színmemória 

Kezdőcímnél a , CMEM EGU..." sor- 
ban állíthatjuk be, mérete 192 byte. 
A byte-ok bitkiosztása: 

b7:0/1: villogás ki/be; 

b6—-b3: üres; 

b2-b0O: szín értéke. 

Pl. 7: fehér, 135: fekete-fehér vill., 
4: zöld, 132: zöld-lila vill. 

A legelső byte a legfelső, a legutolsó 
a legalsó mező színkódja. TOP címre 
a border felső, BOTTOM címre a 
border alsó részének színkódja kerül. 


6. Érdekességek: 
Az alábbi módosításokkal változtat- 
hatunk a program működésén, s így 
érdekes hatásokat érhetünk el: 
XI BIT 4A/BIT 3.A/BIT 2.4A/BIT 
1,A/BIT OA: a villogás sebességét 
gyorsíthatjuk 

o 


E zzmmmttm——————z 
B. Programlista 


TABLE 


INTON 


INTOFF 


] INTRP 


xi 
x2 


xs 
INTRL 


xa 


INTRZ 


INTRS 


INTRA 


COLOR 


C0Li 


WAIT 
wa1 
WAZ 


SCDOWN 


xs 


SCRUP 


x6 


INVERT 


INV1 


COUNT 
MASK 
TOP 
BOTTOM 


CMEM 


JP. INTON 
3P. INTOFF 
JP. SCRUP 
IP. SCDOWN 
JP INVERT 
AP. FLON 

JP FLOFF 
LD A? 


LD OI,A 
IM 2 
RET 


a 
LD A,62 
Im: 

LD OI,A 


AND 56 
RRCA 

RRCA 

RRCA 

DUT (254) ,A 
RET 

DI 


PUSH AF 
PUSH BC 

PUSH HL 

LD A, (COUNT? 
INC A 

AND 51 

LD. (COUNT) ,A 
BIT 4,A 

LD A,7 


JR ÖZ,INT R1 ; 


LD AG 
LD (MASK) A 
LD A, (TOP) 

CALL COLOR 

LD BC,4 


CALL WAIT 
LD BC,9475 
CALL WAIT 
LD B,192 
LD A, (MASK? 
LD CA 

LD HL, CMEM 
PUSH BC 
PUSH AF 

LD A, (HL) 
BIT 7A 

JR OZ,INTRZ 
XOR C 

AND 7 

INC HL 

OUT (234) A 
LD BA 

NoP 

NOP 

NOP 

Nap 

DJNZ INTRA 
POP AF 

POP 3c 

n NTI 

LD A, (BOTTUt 
CALL COLOR 


OUT (254) ,A 
RET 


; 
LD A.B 

LD BA 
DJNZ WAZ 
DEC c 

JR NZ, WAL 
RET 


; 
LD HL, CMEMPI9O ; 
LD DE, CMEMGI91 ; 


LD A, (DE) 
LD BC,191 
LDDR 

LD (DE) ,A 
RET 


LD HL,CMEMt1 


DJNZ INV1 
RET 

LD HL, CMEM 
LD B,192 
SET 7, (HL) 
INC HL 
DJNZ FL1 
RET 


LD HL, CMEM 
LD B,192 
RES 7, (HL? 
INC HL 
DJNZ FLZ 
RET 

DEFB a 
DEFB a 
DEFB B 
DEFB a 


ENU 45329 


e 


; Az egyes rutinok ugrási 
; táblázata 


; Ezzel a rutinnal érjük el, hogy 


megszakításkor 
az INTRP rutin legyen végrehajtva 
(192564255) 52INTRP 

Vége 


Az I regiszter eredeti értékének és az 
1-es megszakítási mód 


; beállítása 
LD A, (25624) ; 


Az eredeti border visszaállítása 


Vége 

; Amig a rutin fut, le kell tiltani a 
megszakítást 

; A felhasznált regiszterek elmentése 

; 

$ COUNT-ban az eddigi megszakítások 

4 minden 16. 

; megszakítás után a villogó mezők 

§ maszkját változtatjuk, azt a 

§ MASK-ban tároljuk 


Az A reg. a border felső részének színe 


2 Border 
Várakozás, amíg a border felsö 
részének 


a végére nem ártünk 


Bemezők száma 


3; CSMASK 


4 HLza mezők sz 


$ A színmemőria 


omóridjának kezdőcíme 
Számláló elmen 


ronkövetkező byte-ja 
a MASK seg ével meghatározza a 


kiirandó színt 


A színmemória következő byte-jára lép 


4 52 Border 


; 
; 
; 
; 
; 
; 
; 
; 
; 
s; 


; 


Várakozás, amíg a következő 


mező elejére érünk 


A NOP-okat ne hagyd kí! 


A felhasznált regiszterek 
eredeti értékének 
visszatöltése 

Ugrás az eredeti int. rutinra 


Beszínkód 
ASMASK 
Villogás esetén 


; Bzmódosított színkód 


; Asszínkód 


3 Border 
Vége 


Várakozás: Bzfinom szab. 
Csdurva szab. 


vége 


NLeszínmemória utolsó előtti byte-ja 

DEsszínmemória utolsó byte-ja 

; Az az utolsó byte tartalma 
BCemozdítandó byte-ok száma 

; Minden byte-ot eggyel hátrébb mozdít 

; A korábbi utolsó byte lesz az első 

; Vége 


Ugyanaz az elv, mint SCDOWN-nál 


3; vége 

; HLEszínmemória kezdete 
§ A számláló beállítása 
; Szín fordítása 

[ 


Következő byte-ra lép 
; Vége 
Az elv ugyanaz, 


az INVERT-nél 
A FLASH-bít 1-be állítása 


mint 


; Vége 


A FLASH-bít törlése 


3; Vége 


; Számláló 
: Maszk 

; Border felső része 
; Border alsó része 


; Színmemória kezdete 


X2LDAN (N-O0...7) 

X3 LD AM (M-O...7) 

A villogás két állapotának maszkját 
változtatjuk meg. 

X4 LD B.K (K-1...192): a középső 
rész mezőszámát állítja. 

X5 LD BCNN (NN-1...191): az alsó 
NN sor serollozza. 

X6 LD BC.MM (MM-1...191): a 
felső MM sort scrollozza. 

Vigyázat! NN és MM más értéke a 
rendszer , összeomlásához" vezethet! 


ESZES EZ 
HSZ E ÉSE tsz —s— 


7. Hogyan tovább? 


Akinek sikerült a rutin működésének 
megértése, önmaga is kísérletezhet 
egyéb borderhatások elérésével. Az 
időzítések megváltoztatásával, esetleg 
elhagyásával nagyobb , háttérfelbon- 
tást" is elérhetünk, sőt a border felső 
részére kicsit durvább ábrákat is raj- 


zolhatunk. 
Novák István 


Fontosnak éreztük, hogy tisztázzuk a tisztázandókat. 


Íme Rucz Lajos válasza. 


Tisztelt Novák István! 

1987. III. 7-én kelt levelére kétség- 
telenül reagálnom kell. Mélységes 
elnézést kell kérnem a rutinnal 
kapcsolatos malőrért, ezért rövi- 
den vázolnám az előtörténetet. 
Kb. 1 évvel ezelőtt egy barátom 
hibás magnetofonmásolatot jut- 
tatott el hozzám, melyen az emlí- 
tett rutin is megtalálható volt 
- BASIC betöltő és DEMO nél- 
kül. A rutin hibaüzenettel állt 
le betöltés után, több byte hibá- 
san töltődött be, így rendbe kel- 
lett hozni, és ezután lehetett ki- 
próbálni szolgáltatásait. A rutin 
hamarosan pihenőre vonult, több 
hasonló társa mellé melyek 
közül több is kezeli a BORDER-t, 
és saját tervezésű. Igen nagy 
szoftverbázis áll rendelkezésem- 
re, melyek között akad néhány 
amely esetleg , név" nélkül került 
hozzám. Így fordulhatott elő, 
hogy az említett rutin — mely 
megnyerte a szerkesztőség tet- 
szését — az ön nevének közlése 
nélkül jelent meg az újságban. 
A történtekért ezúton még egy- 
szer elnézést kérek. 


Egyetértek a kiegészítő információval, 
azonban annyit mindenképpen meg 
kell említenem, hogy a rutin mellé 
összeállított magyarázatok célja első- 
sorban az volt, hogy a rutin legfonto- 
sabb felhasználhatósági paramétereit 
bemutassák. Tudom, hogy elég nehéz 
ma megtalálni az igazi nyelvezeti 
mélységet a felhasználók felé, nem 
tudni, kinek mi az érthető, ill. mennyi 
magyarázat szükséges hozzá. Sokan 


beleesünk abba a hibába, hogy amit 
tudunk, azt már más is tudja, s ebből 
bonyodalmak származhatnak. Így úgy 
érzem, magyarázatai nagyon jól ki- 
munkáltak, értelemszerűek, de több 
helyen túlságosan az alapok szintjére 
utaló, márpedig akiről feltételezzük, 
hogy a gépi kódú programozás szint- 
jéig merészkedik, annak azért illik tudni 
egy-két dolgot. Az Interrupt-tal kap- 
csolatos kiegészítéseit szükségesnek 
tartom. A rutin felépítése szintén csak 
megerősítési információ, egyébként a 
gépi kódú rutinból ez a blokkséma jól 
elkülöníthető. Nagyon jónak tartom, 
hogy megemlíti a programbelövés 
csapdáit, s hivatkozik a hardver okok- 
ból bekövetkező , lassulás" -ra. Itt azért 
nem ártott volna hivatkozni arra, hogy 
ez a hibajelenség megkeserítheti az 
életünket a LOAD/SAVE műveletek 
használata esetén is, pl. nem egész- 
séges dolog egy TURBO betöltőt a 
PRINTER BUFFER területén elhe- 
lyezni. A programbelövés útmutatóját 
jónak tartom, de ez az egy dolog, 
amelyre, úgy érzem, nincs értelme 
egységes útmutatót adnunk, hiszen 
mindenki a jól bevált és megszokott 
módszerét alkalmazza a cél érdeké- 
ben. Az érdekességek néhány dolog- 
ban valóban új információkat nyújta- 
nak az olvasónak, itt én is egyetértek 
a magyarázat szükségességével. Végül 
egy rövid megjegyzés. A rutin szándé- 
kosan lett decimálisan listázva, elsőd- 
legesen a közvetlen adatbevitel elérése 
céljából, egyébként a komment mező 
elsősorban a rutin hosszúsága miatt 
maradt el. 


Rucz Lajos 


Bármely program bonyolultsága addig fokozódik, 


(Murphy törvénykönyve) 


amig túl nem nő programozója képességein! 
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Élet-játék , ,sorozatunkban" eddig még nem közöltünk C 64-re irt 
változatot. Vártunk. Tudtuk, hogy előbb-utóbb érkezik egy olyan 
program, amely gyorsaságban, tudásban fölveszi a versenyt a 
C 16-os, Spectrumos változattal. Nos, a program megérkezett. 
Szerzője Solti András Budapestről. 


A C 64-re írt változatban a képernyő keretét semlegesnek tekintet- 
tem, így az ott levő sejteknek a külső oldalon nincs szomszédjuk. 
Ezzel a módszerrel elérhető, hogy mind az 1000 cella életképes. 
A keretet mérgezőnek tekintő változatban az élettér 2338 cellára 
szűkülne. 

A program nem nyújt különleges szolgáltatást, a képernyőre be- 
rajzolt sejtkonfiguráció életét követhetjük nyomon, lépésenként 
vagy folyamatosan. Lehetőségünk van a fejlődés során beavatko- 
zásra is, ez főleg a lépésenkénti üzemmódban használható ki. 

Ha valakinek igénye van valamely konfiguráció lemezes tárolására, 
a dr. Uri László: C 64 II. kötetének 9.4 fejezetének végén található 
programot írja be szubrutinként. Kezdő értéknek 1024-et, végérték- 
nek pedig 2024-et adva. Hívása a 600-660 sorok közt történhet, pl. 
605 IF A $-"S" THEN GOSUB 2000 

Visszatöltés a szokásos , bűvészkedéssel": 150 IF A-1 THEN 290 
260... . . . :GGOTO 271 (280 helyett) 

271 PRINT" UJ ..... U/Lemezről .. . . . L" 

272 GET A $:IF A $-"U"THEN280 

273 IF A$O"L"THEN 272 

274 INPUT"NEV"; N$ :A-—1 

275 LOAD N$, 8,1 

A BASIC program nem szorul külön magyarázatra. A kezdő állapot 
beállítása után akár billentyűkkel, akár joystick-kal rajzolhatunk 
a SHIFT, törölhetünk a C- egyidejű nyomva tartásával. 

Az egyszerűbb feiépítés, illetve a gyorsabb működés érdekében 
a billentyűk figyelése a 203 címen található kódok felhasználásával 
történik. A mozgatásra a d []? gombok szolgálnak. 

A rajz befejezése után (RETURN vagy tűzgomb) az "F" billentyűk- 
kel választhatunk a többi funkciók között. 

Az új nemzedék létrehozása a gépi kódú rutinnal kb. fél másodperc, 
így folytonos fejlődés esetén látványos sebességgel változik a kép. 
A további lépésekhez a folytonos fejlődést akkor is ki kell kapcsolni, 
ha már minden , kipusztult" a képernyőről. 

A gépi kódú rutint egy képernyő méretű munkaterület törlése után 
végigpásztázza a képernyőt. Ha sejt keletkezéséhez, illetve életben- 
maradásához alkalmas feltételeket talál, a sejteket a munkaterület 
megfelelő regiszterébe ülteti. Az utolsó cella vizsgálata után a 
munkaterületet átmásolja a képernyőre, majd visszatér a BASIC 
programba. 

Mivel a képernyő alatti byte-ok értéke alapállapotban O, a feletti 
rész (BASIC program eleje) sem tartalmaz 81 kódú karaktert, így 
nem vizsgáltam, hogy első vagy utolsó sorban van-e a sejt. 

Mivel az első, illetve utolsó oszlop szomszédi kapcsolatban van a 
másik oldal egy sorral eltolt három cellájával, ezek figyelését nem 
lehet elhanyagolni. 


A szomszédok számlálására indirekt indexelt 
címzést (62), y alkalmaztam. Az index regisz- 
terek csak pozitív eltolást tesznek lehetővé, 
ezért a pozicionálást a vizsgált cella (41) átló- 

x san bal felső szomszédjára (0) kell elvégezni. 
(A táblázat az egyes cellákhoz tartozó y érté- 
keket tartalmazza decimálisan.) 

xX Solti András 
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A Bolyai János Matematikai Társulat Informatikai Bizottsága 
(BJMTIB) és az Országos Pedagógiai Intézet Matematika Osztálya 
közösen készített egy füzetet, amelyben többek között olyan 
HT-programok vannak, melyek segíthetnek a matematika oktatásában. 
Ezek közül többet , átfogalmazunk" C16, illetve C-4-4 gépekre, és 
néhány folytatásban. közöljük az alábbi csoportosításban: 

- Prímek, törzstényezők, legnagyobb közös osztó 

- Függvényábrázolás 

- Kombinatorika, számolás nagy számokkal 

— Rendezési algoritmusok 

- Keverés, véletlen 

- Grafika, SHAPE-ek 

Előzményként említhetjük a BJMT-KFKI közös kiadásában a BASIC 
Példatár II. kötetét; a Kőhegyi János és munkatársai szerkesztette 
Programozási forgácsok"-at a Számítástechnika folyóiratban 1984 
körül; Kovács Mihály és Tarcsay Géza írásait a Technika újságban 
1983-84. években; és legújabban Simonovits Miklós: Számítás- 
technika c. tankönyvét. A folyóiratok könyvtárakban elérhetők, ezért 
a programok megismétlése helyett csak hivatkozni fogunk rájuk. 

A színalányomássail jelölt feladatok megoldásai beküldhetők. 
Ebből egyrészt az anyagok visszhangjára szeretnénk következtetni, 
másrészt sok kérdésre magunk sem ismerjük az egzakt feleletet. 
A helyes (és frappáns) válaszok beküldői között apróságokat (floppy. 
kazetta, BITLET-ek stb.) sorsolunk ki. 


PRÍMEK, OSZTHATÓSÁG, LNKO 


1. feladat: Írjuk ki 1 és N között a prímszámokat! 
a. megoldás: 


4 SCNELR 
5 INPUT "EGYTEL MEDDIG IRJAM KI A PRIMEKET 
19 M-IMTCSORCN)):M1zcN/5:IF MICIgG THEN Miz 
29 DIM ACM1? 
89 Ks1:A(KD-Z:PRINT 2; 
FOR Is3 TON 
119 FOR Jz1 TOK 
IF IMTAI/AKJÓ)SI/AKJ) THEN Jzk4t3 


NEXT J 

IF JCK42 THEN KzKt1:FAXK)sI:PRINT I; 
159 NEXT I 

176 PRIMT:PRINT "EZ"; 1994£KZM; "SZA"ZALE7K!" 


[As edes n -ehalkot ölén ATÓ Ő a zome zae DÉL 71 8 ad EZÉSE ÉRZÉSE 
Tipikus rekurzió: a K-adik prímhez (A(K)) az előzőkön keresztül 
vezet az út. Ezért kell az elsőt (A(1)-2 a 80. sorban) külön kezelni. 
Figyeljük meg a 120. és 140. sorokat: ,. Nincs olyan prím, amivel 


osztható", és , Van olyan..." esetek szétválasztása így korrekt és 
gyors. 
b. megoldás: 


Nagyobb N értékekre időt takarítunk meg, ha a 110. sorban a ciklus- 
változó végértékét K és M-SOR(N) közül a kisebbiknek választjuk: 


119 FÜR Js1i TŰ €K6M-HESTK-Mhos,z 


avagy 
1873 Kilsk:IF K15M THEM K1zM 
116 FÜR Jz1 TO KI 


c. megoldás: 
Eratoszthenesz szíitáját használjuk: 


4 SCNELR 
5 IMPUT "EGYTEL MEDDIG IRJAM KI A PRIMEKET":N 
29 DIM RA(M 

ga Ls1:Ks2:PRINT 2; 

199 FOR Isk TŰ NM STEP K:AfI)5s1:NEXT I 
128 Kzk41:IF KINN THEN 1798 

159 IF A(Kis1 THEM 128 : ELSE PRINT K; 
178 PRINT:PRIWT "EZ"; 1998£L/N; "SZR7ZALE"K 


eme 
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A rekurzió újabb szép példája. Egyetlen FOR ciklus van, a , másik" 
rejtett: a 70. és a 120. sorokban egy IF-es szervezés fedezhető fel. 
Az cArsszáilátás hasonlóan itt is gyorsíthatunk, bár ez bonyolultabbnak 
is tűnhet: 


4 SCNCLR 

5-INPUT "EGYTOL MEDDIG IRJAM KI A PRIMEKET";N 

29 DIM A(N) 

199 Beri Iz2 TO SOR(N) 

119 IF ACID5B THEN PRINT I;:LzL$1:FOR KzIKI TO N STEP I:ACK)z1:NEXT K 
129 NEXT 1 3 


158 FOR IzINTCSOR(N)41) TO N:IF A(I) 
EXT I 


a THEN PRINT I;:LzLt1 
178 PRINT:PRINT "EZ"; 1998£L/N; "SZASZALE7K!" 


Okvetlenül hasonlítsuk össze az eddigi négy programnak a futási 
idejét! N-500 esetén már jelentős különbségek tapasztalhatók. 

2. feladat: Az ikerprímek (különbségük pontosan kettő) 
inverzben jelenjenek meg. 


4 SCNCLR 
5 INPUT "EGYTEL MEDDIG IRJAM KI A PRIMEKET";N 
29 DIM ACN422 
39 Lz1:AC1)5s1:ACM41)51:ACN42)s1:PRINT 2; 
199 FOR I5s2 TO SAR(N? 
118 FOR KzIYI TO N STEP I:AXKD51:NEXT K 
NEXT I 


159 FOR Iz3 TO N STEP 2:IF ACID:-G THEN GOSUB 299 

160 NEXT I 

179 PRINT:PRINT "EZ";L; "DARAB, AZAZ"; 190£L/N; "SZATZRLE"K!" 
189 PRINT "EBBOL"; 1tINTALL/24.91); ""IKERPRIM!" 

199 END 

299 IF ACI-2)$ACI42)zA THEN PRINT "a"; :LL5LL41 
219 LsL41:PRINT I;"m"; 

299 RETURN 


3. feladat: Írassuk ki A és B között a prímeket! 
Nyilván nincs szükség általában az A előtti összes prímre, csak B-ig 
kell megkeresni a törzsszámokat. 


4 SZUÜLE 

bej PRINT TE HEDDIS LEJAM KI B ERIMEK 

"SZzASMDT IRJ VESSZÖVEL ELNFTLASZ 
ES: THPUT H.B 

18 Hz B-ATI : SEC Ea: HESS LE MERET LB THE 

MH MM-z1BÉ 

23 OIM ACMz. BEAT z 

188 FÜR Isz TŐ SüRC0SA 


ii18 IF Bisső THEM hkstbdi: BELEIT: FEJ Kisz 
I 10 S STEP I:ACKázi:MEAT K 

128 HEAT I 

159 FOR Iz INTCSEARCSAtl4 TŐ OS:IF ACíszü 
THEN Lzb.ri:B(Ló5zI 

iső MEST I 


ző FOR IzA TO E: 


AST-AyST:MEKT 
E SE TŐ BABE: TE 


3 A. 
T 3 BEcXA:ACT-Ars3: MERT 
ZEHD 
zag KIDZÜD 
k..ag 
aaa 
418 PRIHWT ACI; 
415 MERT I 
d FEINT: PRINT" EZ ".P." SZAMA "vega 
DxPzzta ta 


A 100-180. sorok az 1. c. megoldásból vehetők, csak most meg is 
jegyezzük az 1-től B-ig levő prímeket (B(L)). A feladat tulajdon- 
képpeni megoldása a 200-280. sorokban van. A 250. sorban keressük 


0 


meg az [A. B] számintervallum legkisebb elemét. amelyik osztható Módosítsuk egy kicsit: 
a J-edik prímmel, és ettől kezdve ,.szitálunk". A 265. sor tekintettel 
van az AB esetre. 

További jelentős gyorsítás nagy A értékek esetén, ha két sort módo- 
sítunk: 


Megtehetjük, hogy kiindulásként kiírjuk a képernyőre az (A. B] 
! számköz számait, és ezek közül eltüntetjük az összetetteket. 

Erre egy egyszerűbb változatot mutatunk, ahol feltételezzük, hogy 

B(10000! Előző programunkhoz kell az alábbi módosításokat 
: hozzáadni! 


5. feladat: Euklideszi algoritmus segítségével adjuk meg két 
szám LNKO-ját! Használjuk fel, hogy A és B közös osztója az 
ABS(A-B)-nek is osztója. 


ezta 


Egy tömörebb, de talán kevésbé triviális változat: 


[NTCILZ 24 
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Gombnyomásra (275. sor) tűnnek el az egyes prímek többszörösei. 
4. feladat: Bontsunk törzstényezőire egy tetszőleges számot! 
Először vezessük vissza egy már megoldott feladatra a jelenlegit! 
Az utolsó listából meghagyva a 4. és 100-180. sorokat, rendelkezünk — További feladatol 


is a szóba jöhető tényezőkkel, csak ki kell válogatni a valóban meg- 
felelőket. Bővítve néhány további sorral, készen is vagyunk: 


t FEL TENY 2. Vajon okozza (mik okozzák) az első négy program sebes- 
ell szád c r. ségei közötti különbségeket? 

THER HT 3. A tényezőkre bontást is három különböző programmal 
Fé próbáltuk. Hasonlítsuk össze ezeket is futási idő szempontjá- 
ból! Itt mi okozza az eltéréseket? 


5. Tényezőre bontással határozzuk meg két szám LNKO-ját, 
illetve LKKT-jét! Mi a véleményed erről, összevetve a meg- 
felelő listákkal? 


"HOT EDMTEI 


IF Hr 


ER) Bt RE "EKE 


B." PRI 
HERE 1. FOR IszZ TOO L:PREIHT 


sz 

SZTN E 

a A JV [XA 
A 210. sorban találhatunk osztó tényezőt, osztunk is vele, és csak a ÁJN ÚS 
hányadost vizsgáljuk tovább. Kiíratáskor (300. és 400. sorok) meg ÚAV ÉN S 
kell különböztetni, prím-e a szám, vagy vannak valódi osztói. án 0 
Megjegyzés: A Technika 1984. II. számában szerepel egy egyszerűbb 
Vnét ami prímkeresés nélkül dolgozik. Kívonatosan közöljük ezt 
a listát is: 


3 


JT EDOHT: 
Itt WC 


3 FEL ZBA 
x 
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Flt 


Rácz Mihály-Horváth Attila : Fizi- 
Komp - Novotrade, 227 o., 129 Ft 
(A szerzők a közegellenállás, a rezgő- 
mozgás és a gravitáció témaköréből 
oldanak meg feladatokat BASIC és 
Pascal nyelven. Részletesen ismerte- 
tik a Pascal programnyelv használatát 
a C—64-en és Spectrumon is.) 

Valkó Péter-Vajda Sándor: Mű- 
szaki-tudományos feladatok 
megoldása személyi számítógép- 
pel — Műszaki Könyvkiadó, 342 o., 
90 Ft 

(A kötet a mérnöki munkában gyak- 
ran előforduló feladatok megoldását 
mutatja be IBM, illetve azzal kompa- 
tibilis gépeken.) 

H. H. Goldsteine: A számítógép 
Pascaltól Neumannig — Műszaki 
Könyvkiadó, 368 o., 110 Ft 

Herman H. Goldstine a számítástech- 
nika, a számítógéptudomány élő klasz- 
szikusa. Vezető szerepet játszott az 
ENIAC (Electronic Numerical Integ- 
rator and Computer), az első elekt- 
ronikus számítógép kifejlesztésében, 
amely elődeitől eltérően nem tartal- 
mazott mechanikus működésű alkotó- 
elemeket. Így ez a gép tekinthető az 
első, mai értelemben vett számító- 
gépnek.  Oroszlánrészt vállalt az 
EDVAC létrehozásában is, amely a 
modern számítógépek szinte vala- 
mennyi ismérvével rendelkezett. Ami 
pedig számunkra különösen fontos 
lehet: közvetlen munkatársa és jó ba- 
rátja volt Neumann Jánosnak, aki a 
számítógépek működésének elméletét 
alkotta meg. 

A Műszaki Könyvkiadó Neuman ha- 
lálának 30. évfordulója alkalmából 
adta ki Goldstine kötetét, a Neumann 
János Számítógép-tudományi Társa- 
sággal együttműködve. Talán nem 
kellett volna ilyen sokáig várni a könyv 
magyar megjelentetésével — ami jó 
15 éve került először az amerikai 
olvasók kezébe -—, de Goldstine szá- 
mitógép-történeti beszámolója ma is 
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nagy érdeklődésre tart számot mind a 
számítógépek, mind a technikatörté- 
net iránt érdeklődők körében. A ki- 
adásért mindenesetre elismerés illeti 
Kovács Győzőt, a kötet lektorát, a 
Neumann János Számítógép-tudo- 
mányi Társaság elnökét. 

A könyv rengeteg hasznos információt 
közöl olyan kitűnő stílusban, hogy 
szinte lehetetlen letenni. Mint a szerző 
az utolsó fejezetben említi, a számító- 
gép-tudomány fejlődését Pascal szü- 
letésétől, 1623-tól Neumann halá- 
láig — 1957-ig — tekintette át. Ha 
mindehhez még azt is hozzászámít- 
juk, hogy műve elején a Pascal mun- 
kásságát megelőző eredményeket is 
számba veszi, akkor nyilván felvetődik 
a kérdés: hogy fér el mindez alig több 
mint 300 oldalon? 

Nos, Goldstine-nak úgy sikerült mon- 
danivalóját a terjedelmi határok közé 
sűrítenie, hogy az olvasó közben 
sohasem érzi azt, hogy egy agyon- 
tömörített, csak a bennfentesek szá- 
mára érthető szakmunkával kell meg- 
birkóznia. 

A könyvben teljesen természetes mó- 
don váltogatják egymást az egyes 
gépek működési módját bemutató 
szakmai szintű leírások, a matematikai 
kifejezések, képletek és a gépek meg- 
alkotóit jellemző rövid anekdoták. 
Mindez egyáltalán nem zavaró, mert 
egységes egésszé ötvözi a szerző 
stílusa. Összefüggő történetet, szinte 
regényt olvashatunk attól kezdve, hogy 
Babbage ötlete alapján — aki a mecha- 
nikus számolási műveleteket kívánta 
gépesíteni az akkori csúcstechnoló- 
giát képviselő gőzgépek segítségével 
— megszületett az első differenciagép, 
egészen a modern digitális, bináris 
számokat használó gépek megalkotá- 
sáig. 

A munka három fő részre tagolódik. 
Az első a II. világháború előtti tudo- 
mányos eredményekkel foglalkozik, a 
második a háború idején végzett fej- 
lesztési munkákkal, a harmadik pedig 
a háború befejeződése és az 1957 
közötti időszak eseményeivel. Mind- 
három korszak nagyjából azonos ter- 
jedelmet kap a könyvben - ebből 
adódik, hogy az 1942 és az 1946 
közötti évekkel foglalkozik a legrész- 
letesebben. Ennek oka nyilvánvaló: 


a hadiiparnak hatalmas szüksége volt 
a fegyverek ballisztikai számításait 
gyorsan elvégző gépekre — ez volt a 
számítógépek kifejlesztésének , arany- 
kora". 

Goldstine hatalmas információs anya- 
got dolgozott fel. Erre utal, hogy a 
kötet minden oldalán három-négy 
lábjegyzet olvasható, amelyek vagy 
könyvekre, cikkekre hivatkoznak, vagy 
—- hiszen a több évtizedes emlékek 
nem feltétlenül megbízhatóak — saját, 
kiterjedt levelezésére. Beszámolója is 
akkor válik igazán átfűtötté, amikor 
már nem az előzményekről, a múltról 
beszél, hanem arról az időszakról, 
amelyben már ő maga és barátja, 
Neumann is részese a számítógép- 
tudomány fejlődésének. E fejezetek- 
ben akár önhittnek is hihetnénk a 
szerzőt, hiszen szinte minden máso- 
dik oldalon leírja a saját nevét — de 
nem tehet mást, elvégre tevékeny sze- 
repet játszott az eseményekben, és 
amikor felsorolja, hogy kik tevékeny- 
kedtek egy-egy feladat megoldásán, 
nem tagadhatja le saját részvételét. 
Kifogásaink csak a kötet szerkezetét 
illetően lehetnek — és ezek is inkább 
kötekedésnek tekinthetők. 

— Goldstine lendületes beszámolójá- 
ban sokszor felborul az időrend. Egy- 
egy gép vagy részegység fejlesztését 
ismertetve időnként túlságosan előre- 
szalad, majd nem győz visszatérni a 
kiindulási időponthoz. Így, ha nem 
figyelünk eléggé a dátumokra, nem 
tudjuk meg, hogy mi volt előbb és mi 
később, vagyis hogy mi minek az 
eredménye. 

— Máskor viszont nem követi azt a 
szerkesztési elvet sem, hogy egy-egy 
részterületet az elejétől a végéig be- 
mutatna. Így számtalan bekezdés vé- 
gén olvashatjuk, hogy , Erről a későb- 
biekben részletesen beszámolunk." 
Így az olvasó nem győz oda-vissza 
lapozni. 

— Goldstine a 118. oldalon Atanasoff 
naivitásával kapcsolatban említi, hogy 
egyik munkájában hosszasan érteke- 
zett a számok egyik számrendszerből 
a másikba való átváltásáról, és nem 
ismerte fel, hogy ez mennyire triviális. 
Nos, Goldstine is beleesik ebbe a 
hibába: matematikai fejtegetései ko- 
rántsem azonos színvonalúak. Hol tel- 


e) 


jesen elemi dolgokat elemez hossza- 
san. hol pedig bonyolult tételeket te- 
kint magától értetődőeknek 

Még néhány szó a kötet három függe- 
lékéről 

Az elsőt maga Goldstine illesztette 
művéhez, bemutatva az európai Oor- 
szágok számítástechnikájának fejlő- 
dését 

A második Kovács Győző, a lektor 
munkája. ez a magyar számítógép- 
tudomány és -gyártás eredményeit is- 
merteti a hatvanas évek közepéig. Ami 
a legszembeötlőbb, az az, hogy már a 
számítógép-tudomány kezdeti kor- 
szakában is tízéves hátrányban vol- 
tunk a fejlett országokhoz képest — és 
ez a hátrány fokozatosan nőtt. 

A legfurcsább a harmadik függelék. 
Ez Nicolas Vonneumann-nak, Neu- 
mann János fiának kiigazítását tartal- 
mazza. A hibák, amiket Goldstine be- 
számolójában javít, nem érdemiek. 
Úgy tűnik, hogy Nicolas apja erköl- 
cseit és világnézetét igyekszik rózsa- 
színűre festeni. Neumann századunk 
egyik legnagyobb tudósa volt — nem 
hisszük azonban. hogy szüksége lenne 


a szentté avatásra. 
Tallér József 


Kritikus szemmel 

Egy vagyok a magyarországi spectru- 
mosok táborából. Közülük is egy a 
megszállottak közül, aki megpróbál a 
gép lelkéhez közel férkőzni; ez alatt 
a gépi kódú programozás rejtelmeinek 
megismerését értem. Éppen ezért vet- 
tem örömmel észre Meggyesházi 
János-Pintér Tibor: ZX SPECT- 
RUM haladóknak, Felhasználási 
segédlet c. könyvét. 

A könyv elejével meg vagyok eléged- 
ve: a rendszerváltozók leírása, az 
assemblerek használati utasítása hasz- 
nos dolog. Utána jönne az érdemi 
rész: gépi kódú rutingyűjtemény 
Első gépi kódú program: PRG(2). át- 
sorszámozás. A 007A sorában pedig 
a hivatkozás: JP NZ.9312. Keresem a 
9312-es címkét, sort, címet, sehol 
sincs. A programról annyit írnak, hogy 
ott van a 118. oldalon. Lapozzunk 
tovább ... PRG(6). Programtömörítés 
00B4 címen JP Z.91FB. A helyzet 
ugyanaz, ne is keress hivatkozást, 
hogy hol van, mi az a 91FB cím. 
Ugorjunk a PRG(9). Tárinformációk 
kiíratása c. részre. Egy kis figyelemmel 
felderíthetünk egy durva hibát: a 
veremműveletek nincsenek egyen- 
súlyban: 2 db PUSH után 3 db POP 
jön. Ettől független begépeltem a 
programot. Nem szállt el, mint ahogy 
vártam, de nem is működött. Folytat- 
hatnám az elvi hibás programok fel- 
sorolását, az ismeretlen vagy nem 
létező címkére ugró utasítást végre- 
hajtó programokat. 

Ne is vizsgáljuk tovább a programok 
megvalósítását! Nézzük, milyen prog- 
ramokat ajánlanak, írnak le a szerzők! 
Különböző képernyő scrollok: LORES, 
HIRES, jobbra, balra, le, fel. Erről csak 
annyit, hogy jobban jár az ember fia, 


o 


Tisztelt Szerkesztő! 
A BIT-LET-ről jut eszembe: kellene csinálni egy ,.mérleget". 
Pl. : így nézne ki: 


A BIT-LET mérlege 
Jó tulajdonság 
Olcsó 
Tartalmas 
Nem ír dirr-durr játékról 
Van ingyenes hirdetési rovat 
Átfogó : a hírektől a szoftver 
műtyürökig mindenről szól 
Gépnyerő 


Rossz tulajdonság 
Mellékletként tengődik 
Kevés a spectrumanyag 
Ritkán jelenik meg 
Megjelenés utáni napon már 
nem lehet kapni 

Nincs benne játékprogram " 
Nincs játékprogramteszt 
(egyszer volt: max. 90 perc: 


stb. Menekülés, Ki jut az erdőbe?) 
stb. 


" Ezt az olvasók írták, keményen el lettek utasítva. Mondjuk 
egyetértek vele, de az alapelv... 


Most egy kér(rdjés : mondjuk írtam egy játékot, és színvonala elérte 
az ismerősök nemcsak udvariasságból mondott elismerését. Nem 
kell a MASTERTRONIC, elég lesz a NOVOTRADE is mecénásnak. 
Hol találom ő(ke)jt? Ha ezt, vagy más ilyesmi , szoftver" címét tud- 
ja, kérem írja meg! Telefonszám nem jó, mert nincs telefonom 
(akkor ők hívnak majd fel engem - ez csak vicc volt). És hogy tör- 
ténik egy ilyen vásárlás? Kölcsönös szimpátia esetén? (Novotrade- 
nak tetszik a program, nekem a Novotrade ajánlata?) A játékról csak 
annyit, hogy nincs még kész, ír a borderre és zenél (KRAFTWERK). 
Még egy kérdés: ha odaadom (elfogadják) a Novotrade-nak teg- 
napelőtt, holnapután a boltban látom? 

Zalka Ernő 

(MCB) 9022 Győr, Árpád út 51/A II. 14. 


Tényleg, megvan még a C 16-ja? 

Válaszaink sorban visszafelé: 
1. A C 16-ot lecseréltem egy Plusz/4-re. 
2. Az , alku" valahogy úgy megy, ahogy ön leírja. Azt azonban ne 
e: hogy egy megvásárolt szoftver máról holnapra az üzletbe 

erül. 
3. A cégeket, amelyek szoftvert vásárolnak egyszerűen föl lehet 
keresni (utcáról be kell menni) és fölajánlani az árut. 
Íme kapásból 1-2 cím: 
Novotrade-Deltasoft — Bp. XIII., Kresz Géza u. 
Novotrade—Caesarsoft — Bp. III., Szentendrei út 
Newline vállalkozás — Vecsés, Diófa u. 15. 
ÁPISZ (Áruforgalmi Osztály) — Bp. VII., Wesselényi u. 
4. Ami a kis táblázatot illeti jól szórakoztunk rajta. A játékprog- 
ramokkal kapcsolatos megjegyzésén elgondolkodtunk. Az az 
igazság, hogy kellemes, nem túl nagy méretű, s lehetőleg nem 
piff-puff játékot szívesen közölnénk, ha kapnánk. (Lásd Életjáték) A 
játékprogram fent nem nálunk jelent meg hanem a Commodore új- 
ságban! Üdvözlettel: A szerkesztő 


ha ezeket a rutinokat Rucz Lajos: fele pénzért csak az ötletet kaphatjuk 


Rutinról rutinra (avagy bepillantás a 
Sinclair Spectrum gépi kódú progra- 
mozásába) c. könyvéből nézi meg. 
(Esküszünk, hogy nem szándékos, 
hogy plágiumon ért szerzőnkről ugyan- 
abba a lapszámba dicsérő sorok is 
bekerültek.) Bár az említett könyv 
csaknem kétszer annyiba kerül, de a 
programokhoz magyarázat van, és a 
programok futásképesek. Úgy látszik, 


meg, hogy tökéletesen megvalósítva 
legyen leírva, ahhoz, úgy látszik, fizetni 
kell. És végső soron fizetni kell annak 
is, aki megvette a ZX Spectrum hala- 
dóknak c. könyvet, és csaknem sem- 
mire nem tudja használni. Úgy is 
mondhatnám, hogy nem azt kapja az 
ember a pénzéért, amit várt. 

Mező Gyula 

1117 Bp.. Irinyi J. u. 42/1806 


SZÁMÍTÁSTECMNIKAI MELLÉKLET-1987. ÁPRILIS 


övetkező számunk fiflden héten az ötletben szám 


2. feladat: A kiírásba — immár hagyo- 


mányosan — kisebb hiba csúszott, a szöveg 
második felében a 99 helyett 100 szerepel. 
Mivel a 2. állítás akárhány versenyzőre igaz, 
ez nem zavarhatta túlságosan a megoldókat, 


természetesen elfogadjuk azt is, ha valaki 
99-re, s azt is, ha 100-ra bizonyította. (Ter- 
vezzük, hogy ezentúl esetleg minden feladat 
2 feladatból fog állni: 

1) Keressék meg a feladat szövegében a hi- 


bét, s javítsák ki, hogy a feladat értelmes le- 
A 3. FELADAT gyen, s az állítása igaz. 
MEGOLDÁSA 2) Oldják meg a kijavított feladatot! 


Visszatérve a mostani feladatra: 
1. feladat: Lehetséges, bármilyen pá- Állítás: akárhány (n) versenyző és akármilyen 
ratlan számú induló esetén elérhető, hogy — eredmények esetén lehet a versenyzőket úgy 
mindenkinek ugyanannyi győzelme és vesz- — rangsorolni, hogy mindenki legyőzte a rang- 
tesége van. Az állítást a teljes indukció mód- sorban közvetlenül utána állót. 
szerével bizonyíthatjuk legegyszerűbben: Bizonyítás: ha néhány versenyzőt sorba tu- 
3 versenyzőre az állítás nyilván igaz. Legyen — dunk rendezni a feladatnak megfelelően, ezt 
n páratlan szám, s tegyük fel, hogy n ver- . a részsorbarendezést hívjuk láncnak. Egy 
senyző esetére már tudjuk, hogy igaz az — lánc hossza a benne szereplő versenyzők 
állítás, azaz megadhatók olyan páronkénti száma. (Ha van legalább 2 induló, akkor 
eredmények, hogy mindenkinek ugyanannyi biztos van 2 hosszú lánc, bármely 2 versenyző 
győzelme és veresége van. Ekkor nyilván tud láncot alkotni a megfelelő sorrendben.) 
n-1 Válasszunk ki egy lehető leghosszabb láncot! 
győzelme, és ugyan- Ha a lánc hossza n, akkor készen vagyunk. 
Ha rövidebb, akkor van egy versenyző, Lán- 
conkívüli Lajos, aki nem szerepel a láncban. 
Lajos nyilván kikapott a lánc első versenyző- 
jétől, de megverte az utolsót, hisz különben 
a lánc valamelyik végéhez hozzá lehetne 
, ragasztani", s így egy hosszabb láncot kap- 
nánk, ami viszont ellentmond a lánc válasz- 
tásának. Mivel Lajos kikapott a lánc első 
versenyzőjétől, de megverte az utolsót, kell 
lenni a láncban két egymást követő verseny- 
zőnek (ledik Imre és Ipluszegyedik Imre), 
akik közül Lajos lediktől kikapott, de Iplusz- 
n4t1 egyediket megverte. Ekkor azonban képez- 
versenyzőt, s mond-  hetjük a következő láncot: vegyük sorra az 
új ; ú eredeti láncból az első, második stb. verseny- 
juk azt, hogy ezek megverték Elsőt, de ki- — 26t egészen ledik Imréig, utána vegyük je 
kaptak Másodiktól, a többiek viszont Máso- [7 ű 
a S jost, majd Ipluszegyedik Imrétől folytassuk 
dikat verték meg, s Elsőtől kaptak ki. Ezután, az eredeti láncot végig. Így megint egy 
ha rögzítjük, hogy Első Elemér megverte eggyel hosszabb láncot kaptunk, ami ellent. 
Második Mártont, könnyű kiszámolni, hogy ggy p tt 
mond a lánc választásának. Így a leghosz- 
nr § a 
szabb láncunk csakis n elemű lehet, s ez a 
lánc adja a kívánt sorrendet. 


mindenkinek 


annyi veresége van. Be szeretnénk látni, 
hogy nt2 versenyző esetén is elérhető, hogy 
mindenkinek ugyanannyi győzelme és veresé- 
ge legyen. Válasszunk ki 2 versenyzőt (Első 
Elemért és Második Mártont), s a páronkénti 
eredményeket a következőképpen határoz- 
zuk meg: a többi versenyző között a feltétele- 
zésünk miatt meg lehet olyan eredményeket 
határozni, hogy egymás között mindenkinek 
n-1 


győzelme és veresége legyen. Válasz- 


szunk ki közülük 


valóban mindenkinek pontosan vere- 


sége, s ugyanannyi győzelme van. Ezzel állí- — Ezzel (legalábbis egy időre) a gráfelméleti 
tásunkat beláttuk. (3-ra igaz, s a módszer — jellegű feladatok végére értünk. A gráfok 
mutatja, hogy akkor 5-re is, de akkor 7-re is, — iránt érdeklődőknek ajánljuk Andrásfai Béla: 
s így tovább, 99-re is, s í. t.) Ismerkedés a gráfelmélettel c. könyvét. 


ATÁR]I wave 


2. FELADAT ; 


Egy BASIC program a következő sorral kezdődik: 10 INPUT H.N 
Azt szeretnénk, hogy a program az 1987-es év bármely napjáról kiírja, 
hogy az a hét melyik napjára esik. 

H jelenti a hónap sorszámát (1-12), N a napét (1-—31). A beírt adatokat 
nem keli ellenőrizni. 

BASIC-ünkről annyit kell tudni, hogy 1 programsor akármilyen hosszú 
lehet, s hogy az összehasonlítások értéke -1, ha igaz és O, ha nem igaz. 
A BASIC-ünk ismeri a MID $(string, kezdet, db) függvényt. 

Feladat, hogy a kívánalmaknak megfelelően fejezzük be a programot. 
Tehát, ha pl. az input 2, 18, akkor az output SZERDA legyen. Azonban 
a cél az, hogy ezt minél kevesebb BASIC utasítással (nem programsor- 
ral!) érjük el! Az értékadás is utasításnak számít! Előre eláruljuk, 
hogy a feladat egyetlen PRINT utasítással megoldható ! 
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